#!/usr/bin/perl
#
require "/home1/sriram/tools/eval/editDist.pl";
use BLEU;

open(FILE1,$ARGV[0]);
open(FILE2,$ARGV[1]);

$senNum = 1;
while($line1=<FILE1>) {
	$line2=<FILE2>;
	chomp($line1);
	chomp($line2);

	print $senNum."\t".eval(-1*&levenshtein($line1,$line2)/scalar(split(/\s+/,$line1)))."\t".BLEU::computeSmoothedBLEU($line1,$line2)."\n";
	last if($senNum==50);
	$senNum++;
}

close(FILE1);
close(FILE2);
	
